From e066c2ae2d8472975e28d97dce0e5c76f760b65f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Jun 1993 17:35:21 +0000 Subject: [PATCH] (internal-ange-ftp-mode): Renamed from ange-ftp-mode. Callers changed. --- lisp/ange-ftp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index af20e6df8c3..bbc7c2c0cef 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.21 $") +(defconst ange-ftp-version "$Revision: 1.22 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1762,17 +1762,17 @@ on the gateway machine to do the ftp instead." (process-kill-without-query proc) (save-excursion (set-buffer (process-buffer proc)) - (ange-ftp-mode)) + (internal-ange-ftp-mode)) (set-process-sentinel proc (function ange-ftp-process-sentinel)) (set-process-filter proc (function ange-ftp-process-filter)) (accept-process-output proc) ;wait for ftp startup message proc)) -(defun ange-ftp-mode () +(defun internal-ange-ftp-mode () (interactive) (comint-mode) - (setq major-mode 'ange-ftp-mode) - (setq mode-name "Ange-ftp") + (setq major-mode 'internal-ange-ftp-mode) + (setq mode-name "Internal Ange-ftp") (let ((proc (get-buffer-process (current-buffer)))) (goto-char (point-max)) (set-marker (process-mark proc) (point)) -- 2.30.2